home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / textureStuff / Patch.wwModel / model.eve < prev   
Encoding:
Text File  |  1995-03-22  |  1.6 KB  |  63 lines
  1. set patch(color) {1.0 1.0 1.0}
  2. set patch(type) bilinear
  3. set patch(x0) -1.0
  4. set patch(y0) -0.5
  5. set patch(z0)  0.0
  6.  
  7. set patch(x1) -1.0
  8. set patch(y1)  0.5
  9. set patch(z1)  0.0
  10.  
  11. set patch(x2)  1.0
  12. set patch(y2) -0.5
  13. set patch(z2)  0.0
  14.  
  15. set patch(x3)  1.0
  16. set patch(y3)  0.5
  17. set patch(z3)  0.0
  18.  
  19. set patch(xScale) 1
  20. set patch(yScale) 1
  21. set patch(zScale) 1
  22. set patch(xTranslate) 0
  23. set patch(yTranslate) 0
  24. set patch(zTranslate) 0
  25. set patch(xRotate) 0
  26. set patch(yRotate) 0
  27. set patch(zRotate) -90
  28.  
  29. set s1 0
  30. set t1 0
  31. set s2 1
  32. set t2 0
  33. set s3 0
  34. set t3 1
  35. set s4 1
  36. set t4 1
  37.  
  38. set texture(pictureName) $modelPath/grid.tiff
  39. set texture(textureName) /tmp/grid.tx
  40. set texture(sWrap) periodic
  41. set texture(tWrap) periodic
  42. set texture(filterFunc) box
  43. set texture(sWidth) 2
  44. set texture(tWidth) 2
  45.  
  46. loadControlPanel controls.nib
  47. loadControlPanel TextureCoordinatesControls.nib
  48.  
  49. startShape aPatch
  50.   Sides 1
  51.   EveCmd {Color $patch(color)}
  52.   EveCmd {Scale $patch(xScale) $patch(yScale) $patch(zScale)}
  53.   EveCmd {Translate $patch(xTranslate) $patch(yTranslate) $patch(zTranslate)}
  54.   EveCmd {Rotate $patch(xRotate) 1 0 0 }
  55.   EveCmd {Rotate $patch(yRotate) 0 1 0 }
  56.   EveCmd {Rotate $patch(zRotate) 0 0 1 }
  57.   EveCmd {TextureCoordinates $s1 $t1 $s2 $t2 $s3 $t3 $s4 $t4 }
  58.   EveCmd {MakeTexture $texture(pictureName) $texture(textureName) $texture(sWrap) $texture(tWrap) $texture(filterFunc) $texture(sWidth) $texture(tWidth)}
  59.   EveCmd {Surface paintedplastic texturename $texture(textureName)}
  60.   EveCmd {Patch $patch(type) P "$patch(x0) $patch(y0) $patch(z0) $patch(x1) $patch(y1) $patch(z1) \
  61.                                 $patch(x2) $patch(y2) $patch(z2) $patch(x3) $patch(y3) $patch(z3)" }
  62. endShape
  63.